Estadísticas Policiales 2021

Tarea 2

Carga de Paquetes

Se hace uso de los paquetes DT para crear la tabla y de ggplot2 para crear los gráficos.

library(dplyr)
library(readr)
library(ggplot2)
library(plotly)
library(DT)
library(readxl)

Tabla

# Carga

datos_policiales <-
  read_excel("C:/Users/Fiorela/Downloads/estadisticaspoliciales2021.xls")

# Transformación

datos_policiales <-
  datos_policiales %>%
  select(Delito, Fecha, "Víctima" = Victima, Edad, "Género" = Genero, Provincia, "Cantón" = Canton) %>%
  mutate(Fecha = as.Date(Fecha, format = "%d/%m/%Y"))

# Visualización Tabular

datos_policiales %>%
  datatable(options = list(pageLength = 10,
    language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')))

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html